perm filename DIF[MUS,LCS] blob
sn#316226 filedate 1977-11-06 generic text, type T, neo UTF8
**** File 1) MUSB.FAI[MUS,LCS], Page 2 line 95
1) PUSHJ P,@EMITB(H);EMIT RETURN INSTR. AT END OF CODE.
**** File 2) X[MUS,LCS], Page 1 line 95
2) ; PUSHJ P,EMICDI ;EMIT RETURN INSTR. AT END OF CODE.
2) PUSHJ P,@EMITB(H);EMIT RETURN INSTR. AT END OF CODE.
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 2,1
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 2 line 101
1) JRST @(P) ;EXECUTE IT.
**** File 2) X[MUS,LCS], Page 1 line 102
2) ; MOVE 17,P ;PTR. FOR (UGH! BLETCH!) FOOTRAN PGMS.
2) ;P IS NOW 17 ANYWAY
2) JRST @(P) ;EXECUTE IT.
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 4 line 51
1) SETZ A,
**** File 2) X[MUS,LCS], Page 3 line 51
2) MOVEI [ASCIZ/
2) /]
2) JSR TXTOUT
2) SETZ A,
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 5 line 36
1) JRST [ CAMLE A,OVRSMP ;Check for larger than byte size
**** File 2) X[MUS,LCS], Page 4 line 36
2) ; MOVEM A,MAXSMP ;YUP.
2) JRST [ CAMLE A,OVRSMP ;Check for larger than byte size
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 6 line 45
1) ↑.ERRUUO:MOVE P,SAVEP
**** File 2) X[MUS,LCS], Page 5 line 44
2) ;BLAST --- Type string on colsole or other console of same programmer
2) ;↑.BLAST:MOVEM 0,SAVE0#
2) ; SETO 0,
2) ; TTYUUO 6,0
2) ; JUMPG 0,[OUTSTR @40
2) ; MOVE 0,SAVE0
2) ; JRST UUORET]
2) ; MOVE P,UUOIOWD
2) ; GETPPN 0,
2) ; HRRZ 0,
2) ; PUSH P,0
2) ; PUSH P,0
2) ; PUSH P,[[ASCIZ/;;Message from Music Program: /]]
2) ; PUSHJ P,BLAST↑
2) ; PUSH P,40
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 6,5
2) ; PUSHJ P,BLAST↑
2) ; MOVE 0,SAVE0
2) ; JRST UUORET
2) ↑.ERRUUO:MOVE P,SAVEP
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 6 line 79
1) UUOPDL: BLOCK 20
**** File 2) X[MUS,LCS], Page 5 line 97
2) ;;;↑INTERR: SKIPE INERR ;Are we already losing?
2) ;;; JRST BADERR ;Yes, give up
2) ;;; SETOM INERR ;Don't allow two errors
2) ;;; JSR SAVE
2) ;;; MOVE 15,IWARN
2) ;;; MOVEI 1,ERR7
2) ;;; EXCH 1,INTPC
2) ;;; MOVEM 1,ERRPC
2) ;;; INTJEN INTBIT
2) ;;;BADERR: OUTSTR[ASCIZ/
2) ;;;Already in error routine. I give up!/]
2) ;;; EXIT 1,
2) ;;; INTJEN INTBIT ;Cross your fingers...
2) UUOPDL: BLOCK 20
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 7 line 27
1) INCHWL 1
1) CLRBFI
**** File 2) X[MUS,LCS], Page 6 line 27
2) ;;; SETOM TTYWRD# ;ARE WE AT AN III OR DD
2) ;;; TTYUUO 6,TTYWRD
2) ;;; AOS TTYWRD ;So we don't DPYOUT to detached tty's
2) ;;; SKIPGE TTYWRD
2) ;;; DPYOUT 17,ERRDPY ;YES, DISPLAY PROMPTS
2)
2) INCHWL 1
2) ;;; SKIPGE TTYWRD
2) ;;; DPYOUT 17,[.+1 ;FLUSH DISPLAY
2) ;;; 0]
2) CLRBFI
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 7 line 33
1) ERR98: CAIN 1,"S" ;RESTART?
**** File 2) X[MUS,LCS], Page 6 line 42
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 7,6
2) ;;; CAIN 1,"E"
2) ;;; JRST GOEDIT
2) ;; CAIE 1,"D" ;DEBUG?
2) ;; JRST ERR98 ;NO
2) ;; SKIPE JOBDDT ;YES, MAKE SURE IT'S LOADED
2) ;; JRST .+3
2) ;; OUTSTR [ASCIZ/NO DDT/];NOT LOADED, PRINT MESSAGE
2) ;; JRST ERR99
2) ;; MOVE 1,ERRPC
2) ;; MOVEM 1,JOBOPC
2) ;; JRST DDTGO2
2) ;;DDTGO: POP P,JOBOPC ;FOR RAID'S USE
2) ;; SOS JOBOPC
2) ;;DDTGO2: MOVE 1,ERSVAC+1
2) ;; SETZM INERR
2) ;; JRST @JOBDDT
2) ERR98: CAIN 1,"S" ;RESTART?
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 7 line 47
1) OUTSTR [ASCIZ/
**** File 2) X[MUS,LCS], Page 6 line 72
2) ;;; OUTSTR ERRERR
2) OUTSTR [ASCIZ/
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 7 line 52
1) SETZM INERR
1) JRSTF @ERRPC
1) 0
1) ERSVAC: BLOCK 20
**** File 2) X[MUS,LCS], Page 6 line 78
2) ;;; DPYCLR
2) SETZM INERR
2) JRSTF @ERRPC
2) ;;;ERRDPY: .+2
2) ;;; ERRLEN
2) ;;; 0
2) ;;; 36032146 ;LVW 0,740,6,4,ABS,INV
2)
2) ;;;ERRERR:
2) ;;; ASCID/
2) ;;;S - Restart, R - Retry with same file,
2) ;;;E - Edit , <return> - Continue/
2) 0
2) ;;;ERRLEN←←.-ERRDPY-2
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 7,6
2) ERSVAC: BLOCK 20
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 10 line 1
1) SUBTTL Unit Generators
**** File 2) X[MUS,LCS], Page 9 line 27
2) ;NX: 0
2) ; ERROR (Missing External function)
2) ;COMMENT ⊗ Either an external function was not loaded or its name was misspelled.⊗;
2) ; JRST INTER2
2) SUBTTL Unit Generators
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 10 line 123
1) MOVSI T1,(512.0) ;NOW CALCULATE THE INCREMENT BASED ON THE
**** File 2) X[MUS,LCS], Page 10 line 123
2) ; MOVE T1,@-6(T) ;GET DIFFERENCE BETWEEN TWO
2) ; FSBR T1,@-7(T)
2) ; MOVEM T1,-2(T) ;SAVE IN TEMP
2) ;**** THIS DIDN'T WORK IF THE TWO VALUES ARE TO BE CALCULATED AT R-TIME!!!!
2) MOVSI T1,(512.0) ;NOW CALCULATE THE INCREMENT BASED ON THE
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 15 line 3
1) INTERNAL RDNUM,PNUM,SBFILN,SBDEVN
1) ;INTERNAL RDNUM,MESS,PNUM,QTTYIN,SBFILN,SBDEVN
1) INTERNAL INFIL2,INFIL3,INFIL4,INFILE
**** File 2) X[MUS,LCS], Page 15 line 3
2) INTERNAL RDNUM,MESS,PNUM,QTTYIN,SBFILN,SBDEVN
2) INTERNAL INFIL2,INFIL3,INFIL4,INFILE
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 15 line 39
1) INT: 0 ;INTEGER PART
**** File 2) X[MUS,LCS], Page 15 line 38
2) MESS: 0 ;MESSAGE PRINTER FOR FOOTRAN ROUTINES.
2) HRRZ (RA) ;GET LOC. OF MESSAGE.
2) HRLI 440700
2) MESS1: ILDB 1,
2) SKIPN 1
2) JRA RA,1(RA)
2) CAIN 1,"/"
2) JRST [ OUTSTR[ASCIZ/
2) /]
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 15,15
2) JRST MESS1]
2) OUTCHR 1
2) JRST MESS1
2) INT: 0 ;INTEGER PART
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 15 line 50
1) ; STRLEN
1) ARRLEN: 0 ;Returns length of array
**** File 2) X[MUS,LCS], Page 15 line 62
2) QTTYIN: 0 ;ICK! BLETCH! MORE FORTRASH! SUBROUTINE TO RETURN
2) ; 0 IF NOT INPUTING FROM TTY
2) MOVSI 0,'TTY' ;-1 IF TTY IS REALLY A III
2) CAMN 0,DNAM ;-2 IF TTY IS DD
2) JRST .+3
2) SETZ 0,
2) JRA RA,1(RA)
2) SETOB 0,LINCHR
2) TTYUUO 6,LINCHR#
2) SKIPL LINCHR
2) SOS 0
2) FSC 0,233
2) JRA RA,(RA)
2) STRLEN
2) ARRLEN: 0 ;Returns length of array
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 16 line 26
1) SIXBIT/EXCISE/
1) SIXBIT/FREEZE/
1) SIXBIT/P/
1) 0
1) CMDTA2:
1) EXCISE
1) FREEZ1
1) CPLAY
1)
1) CPLAY: SKIPN MTA ;******DON'T PLAY, USING MAGTAPE*************
1) PUSHJ P,PLAY↑
1) JRST SCHOWN
1) ; More Command Routines.
1) EXCISE:
**** File 2) X[MUS,LCS], Page 16 line 26
2) ;;; SIXBIT/DDT/
2) ;;; SIXBIT/EDIT/
2) SIXBIT/EXCISE/
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 16,16
2) SIXBIT/FREEZE/
2) ;;; SIXBIT/HELP/
2) ;;; SIXBIT/NEWS/
2) SIXBIT/P/
2) ;;; SIXBIT/PLAY/
2) ;;; SIXBIT/PRINT/
2) ;;; SIXBIT/RESET/
2) ;; SIXBIT/SAVE/
2) ;; SIXBIT/SPACE/
2) 0
2) CMDTA2:
2) ;;; COMDDT
2) ;;; CMDEDT
2) EXCISE
2) FREEZ1
2) ;;; 0
2) ;;; 0
2) ;; CPLX
2) ;; CPLX
2) CPLAY
2) ;;; CPLAY
2) ;;; CPNT
2) ;;; REST1
2) ;; SAVBUF
2) ;; CSPACE
2)
2) ;;;COMDDT: SKIPN JOBDDT
2) ;;; JRST SCHOWN
2) ;;; PUSH P,[SCHOWN+1]
2) ;;; JRST DDTGO]
2) ;;CPLX: PUSHJ P,CGNUM ;GET FOLLOWING NUMBER, IF ANY.
2) ;; MOVEI T,1 ;NO NUMBER. TAKE AS 1.
2) CPLAY: PUSHJ P,PLAY↑
2) JRST SCHOWN
2) ; More Command Routines.
2) ;;;REST1:
2) ;;; SETOM ONCEFG ;THE RESET WILL BE DONE AT GO
2) ;;; MOVE OLDJFF ;RESET JOBFF
2) ;;; MOVEM JOBFF
2) ;;; JRST GO
2) EXCISE:
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 17 line 23
1) ; This handy routine tells you what's in the symbol table
**** File 2) X[MUS,LCS], Page 17 line 30
2) ;;;CPNT: PUSHJ P,SCOMPA ;INIT. THE COMPILER.
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 17,17
2) ; PUSH OSP,[XWD VRBLBT,[XWD VRBLBT,CPNTX#]] ;PUT FAKE VARIABLE IN STACK.
2) ; PUSHJ P,ASTMT1 ;COMPILE RIGHT PART OF AN ASSIGNENT STATEMENT.
2) ; PUSHJ P,INTERP ;EXECUTE THE CODE.
2) ; MOVM A,CPNTX ;GET ITS VALUE.
2) ;;;CPNT2: PUSHJ P,OUTFLT ;PRINT FLOATING
2) ; OUTPUT TTY,0
2) ; POP P,A ;GET THING WHICH TERMINATED EXPR. (LEFT ON STACK BY ASTMT1).
2) ; CAMN A,SEMICV ;A SEMICOLON ?
2) ; JRST SCHOWN ;YES. FORGET IT.
2) ; JRST CHOWN ;NO. LOOK AT IT.
2) ; This handy routine tells you what's in the symbol table
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 18 line 8
1) DBFNUM←←=10 ;NUMBER OF BUFFERS (SHOULD BE SOME FACTOR OF 18, PLUS 2)
**** File 2) X[MUS,LCS], Page 19 line 8
2) ;;;UBLKSZ←←=2336
2) DBFNUM←←=10 ;NUMBER OF BUFFERS (SHOULD BE SOME FACTOR OF 18, PLUS 2)
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 18 line 15
1) TODSK←←2
**** File 2) X[MUS,LCS], Page 19 line 16
2) ;;;TOUDP←←1
2) TODSK←←2
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 18 line 20
1) ↑PLINIT:SETZM BLKNUM ;CLEAR BLOCK COUNT
**** File 2) X[MUS,LCS], Page 19 line 21
2) ;;;UDPABS←←100 ;OPEN UDP IN ABSOLUTE MODE
2) ↑PLINIT:SETZM BLKNUM ;CLEAR BLOCK COUNT
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 18 line 55
1) TYPSTR [ASCIZ/Please include an extension or ':'
**** File 2) X[MUS,LCS], Page 19 line 58
2) ;;; JRST PLOOP2 ;NO, THAT'S OK, IT'S JUST A DEVICE
2) TYPSTR [ASCIZ/Please include an extension or ':'
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 20 line 11
1) POPJ P, ;NOW, RETURN
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 20,21
**** File 2) X[MUS,LCS], Page 21 line 11
2) ; MOVEI 2200 ;SET TO 18 BIT SAMPLES
2) ; HRLM SBPTR
2) POPJ P, ;NOW, RETURN
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 20 line 21
1) ;INIDS3:
1) INIDS4: SETZM SBDEVC ;SET BUFFERED MODE
**** File 2) X[MUS,LCS], Page 21 line 24
2) INIDS3:
2) INIDS4: SETZM SBDEVC ;SET BUFFERED MODE
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 20 line 26
1) SYSERR<Can't INIT DEVICE!> ;An unlikely situation. ⊗;
1) ;**********************MAGTAPE****************************
1) ;** TO USE TAPE - OUTFILE←"MTA0:X.X"; ONLY MTA0 OR MTA1 *
1) SETZM MTA ;MAGTAPE FLAG ;*
1) MOVE 1,SBDEVN ;IS THE DEVICE MTA0? *
1) CAMN 1,[556441,,200000] ; = MTA0 *
1) JRST .+3 ;*
1) CAME 1,[556441,,210000] ; = MTA1 *
1) JRST INIDS5 ;*
1) SETOM MTA ;YES, SET THE FLAG ;*
1) SETZM MAXSMP ;SO HEADER WON'T LIE ABOUT IT ;*
1) SKIPN SAVIT ;CAN'T DO 'SAVES' WITH MTA0 *
1) JRST .+4 ;*
1) OUTSTR [ASCIZ/CAN'T DO 'SAVES' WHEN USING MTA.
1) /] ;*
1) SETZM SAVIT ;*
1) SETZM SAVCNT ;*
1) MOVE 1,MTADUR ;HAS DURATION BEEN SET? *
1) JUMPE 1,INIDS6 ;NO *
1) FMPR 1,SRATE ;TO GET NUM. OF SAMPLS *
1) KIFIX 1,1 ;*
1) MOVEM 1,TIME ;TIME=SMPL TOTAL, FIXED *
1) SETZM MTADUR ;RESET IT TO 0 *
1) JRST INIDS5 ;*
1) INIDS6: OUTSTR [ASCIZ/ HEADER WILL NOT INCLUDE DURATION.
1) /] ;*
1) SETZM TIME ;*
1) ;**********************MAGTAPE****************************
1) INIDS5: MOVEI F,TODSK ;DSK IS OPTION 2
1) PUSHJ P,PLINI2 ;CALL THE BUFFER ALLOCATION
**** File 2) X[MUS,LCS], Page 21 line 29
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 20,21
2) SYSERR<Can't INIT DSK!>
2) COMMENT ⊗ An unlikely situation. ⊗;
2) MOVEI F,TODSK ;DSK IS OPTION 2
2) PUSHJ P,PLINI2 ;CALL THE BUFFER ALLOCATION
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 21 line 62
1) ;; HRLZI A,-200 ; [IRC] MAKE UP A IOWD
1) ;; HRRI A,-1(C)
1) ;; GETSTS SBCHAN,B ; [IRC] GET OUR STATUS
1) ;; PUSH P,B ; SAVE IT
1) ;; SETZ B,
1) ;; SETSTS SBCHAN,17 ; [IRC] CHANGE TO DUMP MODE
1) ;; OUTPUT SBCHAN,A ; [IRC]
1) MOVE A,SBPTR
1) ADDI A,200
1) MOVEM A,SBPTR
1) OUT SBCHAN,
1) ;; POP P,B ; [IRC] GET BACK OLD STATUS
1) ;; SETSTS SBCHAN,(B)
1) POP P,C ; [IRC]
1) POPJ P, ;Next output will put out header
1) ;Header speed table
**** File 2) X[MUS,LCS], Page 22 line 61
2) IFN 0,< SETZ T, ; [IRC]
2) MOVEI B,100-5
2) HDUDLP: PUSHJ P,STUFF ;Output undefined part of header
2) SOJG B,HDUDLP
2) MOVEI T,=7
2) DPB T,[POINT 6,SBPTR,11] ;Set packing bytesize for description
2) MOVEI T,=5
2) IMULM T,SBCNT
2) ;Output descriptive part of header
2) SETZ A, ;THESE 2 REPLACE GETPPN A,
2) DSKPPN A, ; X X X X
2) ;;; GETPPN A, ;Output PPN
2) PUSH P,A
2) PUSH P,[=12]
2) PUSH P,[PUSHJ P,STUFF]
2) PUSHJ P,WROCT↑
2) ;Output date
2) MOVEI T," "
2) PUSHJ P,STUFF
2) DATE A, ;Decode the date
2) IDIVI A,=31
2) ADDI B,1
2) PUSHJ P,[
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 21,22
2) HDNUM: PUSH P,B
2) PUSH P,[=10]
2) PUSH P,[PUSHJ P,STUFF]
2) PUSHJ P,WRINT↑
2) POPJ P,]
2) IDIVI A,=12
2) ADD B,[POINT 7,MONNAM]
2) HDMON1: ILDB T,B
2) JUMPE T,HDMON2
2) PUSHJ P,STUFF
2) JRST HDMON1
2) HDMON2: MOVNI B,64
2) SUB B,A
2) PUSHJ P,HDNUM
2) ;Output input file name
2) MOVEI T," "
2) PUSHJ P,STUFF
2) PUSH P,[DNAM]
2) PUSH P,[PUSHJ P,STUFF]
2) PUSHJ P,WRIOSP↑
2) SETZ T,
2) MOVEI A,1
2) HDFINL: PUSHJ P,STUFF ;Repeat until end of buffer
2) CAME A,SBCNT
2) JRST HDFINL
2) POP P,A
2) HLLM A,SBPTR ;Put back old byte pointer
2) SOS SBCNT ;I don't know why this is here, but it helps
2) > ; END IFN 0 ABOVE [IRC]
2) HRLZI A,-200 ; [IRC] MAKE UP A IOWD
2) HRRI A,-1(C)
2) GETSTS SBCHAN,B ; [IRC] GET OUR STATUS
2) PUSH P,B ; SAVE IT
2) SETZ B,
2) SETSTS SBCHAN,17 ; [IRC] CHANGE TO DUMP MODE
2) OUTPUT SBCHAN,A ; [IRC]
2) POP P,B ; [IRC] GET BACK OLD STATUS
2) SETSTS SBCHAN,(B)
2) POP P,C ; [IRC]
2) POPJ P, ;Next output will put out header
2) ;IFN 0,< ; [IRC]
2) ;***STUFF: SOSLE SBCNT ;Dec. byte or word count
2) ;*** JRST STUFF2
2) ;*** WARN (Header bug???)
2) ;;; PUSHJ P,@OUTTAB(F) ;FLUSH FULL BUFFER.
2) ;*** OUT SBCHANS,
2) ;*** SKIPA
2) ;*** WARN <Output error?>
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 21,22
2) COMMENT ⊗ Error detected while writing out sample buffer ⊗;
2) ;***STUFF2: IDPB 1,SBPTR ; OK to stuff byte into buffer
2) ;*** POPJ P,
2) ;MONNAM: ASCIZ/-Jan/
2) ; ASCIZ/-Feb/
2) ; ASCIZ/-Mar/
2) ; ASCIZ/-Apr/
2) ; ASCIZ/-May/
2) ; ASCIZ/-Jun/
2) ; ASCIZ/-Jul/
2) ; ASCIZ/-Aug/
2) ; ASCIZ/-Sep/
2) ; ASCIZ/-Oct/
2) ; ASCIZ/-Nov/
2) ; ASCIZ/-Dec/
2) ;> ; END IFN 0 ABOVE [IRC]
2) ;Header speed table
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 22 line 3
1) BUFOUT: AOS SBUSET ;Update USETO pointer
**** File 2) X[MUS,LCS], Page 23 line 3
2) ;OUTPUT IN DUMP MODE
2) ;;DMPOUT: MOVN A,SSIZES(F) ;MAKE AN IOWD
2) ;; HRL A,SBBOTT ;GET ADDRESS OF BUFFER
2) ;; SUB A,[XWD 1,0]
2) ;; MOVSM A,SBIOWD
2) ;; OUT SBCHAN,SBIOWD ;DO DUMP MODE OUTPUT
2) ;; POPJ P,
2) ;;DMPOU2: WARN <Output error?>
2) COMMENT ⊗ Error detected while writing out sample buffer ⊗;
2) ;; POPJ P,
2) BUFOUT: AOS SBUSET ;Update USETO pointer
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 22 line 11
1) PUSHJ P,BUFOUT ;YES
**** File 2) X[MUS,LCS], Page 23 line 22
2) ;; CAIN F,TODSK
2) PUSHJ P,BUFOUT ;YES
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 22 line 21
1) ;; SKIPN MTA ;*******DON'T REOPEN*** ON MTA0 *******
1) OPEN SBCHAN,SBDEVC
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 22,23
**** File 2) X[MUS,LCS], Page 23 line 33
2) OPEN SBCHAN,SBDEVC
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 22 line 50
1) ;;;** USETO SHOULDN'T MATTER WITH MTA.**SKIPN MTA ;NO USETO IF TO MTA0
1) USETO SBCHAN,@SBUSET ;Move to remembered end of file.
**** File 2) X[MUS,LCS], Page 23 line 61
2) USETO SBCHAN,@SBUSET ;Move to remembered end of file.
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 23 line 17
1) ; Finished Doing Output, Close and Release Space
**** File 2) X[MUS,LCS], Page 24 line 16
2) ;;; JRST SBFIN2 ;WRITE OUT LAST BLOCK AND CLOSE FILE
2) ; Finished Doing Output, Close and Release Space
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 23 line 24
1) USETO SBCHAN,1 ;Back to beginning of file
1) OUT SBCHAN, ;Setup buffers for WRTHDR
1) SKIPN MTA ;************************************
1) PUSHJ P,WRTHDR ;Write out header
1) STATS: TYPSTR [ASCIZ/
**** File 2) X[MUS,LCS], Page 24 line 25
2) ;; CAIN F,TODSK ;To disk?
2) USETO SBCHAN,1 ;Back to beginning of file
2) OUT SBCHAN, ;Setup buffers for WRTHDR
2) PUSHJ P,WRTHDR ;Write out header
2) FILLB3:
2) STATS: TYPSTR [ASCIZ/
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 23 line 39
1) KIFIX A,SRATE
1) TYPSTR [ASCIZ/ Srate = /]
1) PUSHJ P,DECPNT
1) TYPSTR [ASCIZ/
1) Time = /]
1) MOVE A,TIME
**** File 2) X[MUS,LCS], Page 24 line 41
2) TYPSTR [ASCIZ/ Time = /]
2) MOVE A,TIME
***************
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 23,24
**** File 1) MUSB.FAI[MUS,LCS], Page 24 line 15
1) DBFNUM*(DBLKSZ+3)+1 ;EXTRA WORD TO PREVENT EXTRA K OF
**** File 2) X[MUS,LCS], Page 25 line 15
2) ;;; UBLKSZ
2) DBFNUM*(DBLKSZ+3)+1 ;EXTRA WORD TO PREVENT EXTRA K OF
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 24 line 29
1) DSKOUT
**** File 2) X[MUS,LCS], Page 25 line 30
2) ;;; UDPOUT
2) DSKOUT
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 24 line 33
1) DSKFIN
**** File 2) X[MUS,LCS], Page 25 line 35
2) ;;; UDPFIN
2) DSKFIN
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 27 line 70
1) DCLMSG: SKIPE NO.MSG
**** File 2) X[MUS,LCS], Page 28 line 70
2) ;PRINT DECLARED MESSAGE
2) ; PUSHJ P,DCLMSG
2) ; [ASCIZ/TYPE OF DECLARATION/]
2) DCLMSG: SKIPE NO.MSG
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 90
1) MOVSI 1,446353 ;DSK ; USE DSKM FOR IRCAM*******************
1) JFCL
1) JFCL ; TO KEEP THE PUSHJ'S IN THE RIGHT PLACES.
1) MOVEM 1,(2)
1) PUSHJ 17,RDIOSP+52 ;Read SIXBIT
1) JUMPE 1,RET
**** File 2) X[MUS,LCS], Page 31 line 90
2) MOVSI 1,446353 ;DSKM ; FOR IRCAM*******************
2) MOVEM 1,(2)
2) PUSHJ 17,RDIOSP+50 ;Read SIXBIT
2) JUMPE 1,RET
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 30,31
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 99
1) PUSHJ 17,RDIOSP+52
1) NODEV: MOVEM 1,2(2)
**** File 2) X[MUS,LCS], Page 31 line 97
2) PUSHJ 17,RDIOSP+50
2) NODEV: MOVEM 1,2(2)
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 108
1) PUSHJ 17,RDIOSP+52 ;Yes, read it
1) HLLZM 1,3(2)
**** File 2) X[MUS,LCS], Page 31 line 106
2) PUSHJ 17,RDIOSP+50 ;Yes, read it
2) HLLZM 1,3(2)
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 112
1) PUSH 17,RDIOSP+62 ;Read project
1) PUSH 17,-4(17)
**** File 2) X[MUS,LCS], Page 31 line 110
2) PUSH 17,RDIOSP+60 ;Read project
2) PUSH 17,-4(17)
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 118
1) PUSH 17,RDIOSP+62 ;Read project
1) PUSH 17,-4(17)
**** File 2) X[MUS,LCS], Page 31 line 116
2) PUSH 17,RDIOSP+60 ;Read project
2) PUSH 17,-4(17)
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 123
1) JRST RDIOSP+46
1) XCT -3(17)
**** File 2) X[MUS,LCS], Page 31 line 121
2) JRST RDIOSP+44
2) XCT -3(17)
***************
1) MUSB.FAI[MUS,LCS] and 2) X[MUS,LCS] 11-06-77 13:33 pages 30,31
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 133
1) PUSH 17,RDIOSP+63
1) PUSHJ 17,RDSIX
**** File 2) X[MUS,LCS], Page 31 line 131
2) PUSH 17,RDIOSP+61
2) PUSHJ 17,RDSIX
***************
**** File 1) MUSB.FAI[MUS,LCS], Page 30 line 142
1) RDIOSP+56
1)
**** File 2) X[MUS,LCS], Page 31 line 140
2) RDIOSP+54
2)
***************